home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / saided.arc / XMON.DOC (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  16KB  |  252 lines
  1. 1 POKE45,055:POKE46,072:CLR:POKE53265,PEEK(53265)AND239
  2. 2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  4. 4 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]x-mON";
  5. 5 PRINT"64ISONEOFTHEMOSTCOMMON[159][221][221][153]OFTHEPUBLICDOMAINMACHINELANGU";
  6. 6 PRINT"AGE[159]}}[153]MONITORS.iTISONEOFTHEBESTAS[159]}}[153]WELL.hEREISABRIEF";
  7. 7 PRINT"DESCRIPTIONOF[159]}}[153]ITSFEATURES.[159]}[171]````````````";
  8. 8 PRINT"``````````````````````````[179]}sIMPLEaSSEMBLER[159]}}";
  9. 9 PRINT"}}[152].[155]A2000[152]A912[155]LDA#$12";
  10. 10 PRINT"[159]}}[152].A20029D0080[155]STA$8000,X[159]}}[152].A2005";
  11. 11 PRINT"[159]}}}}[153]hERE,TH";
  12. 12 PRINT"EUSERBEGANASSEMBLYAT$2000.[159]}}[153]tHEPROMPTISAPERIOD.iNTHEFIRS";
  13. 13 PRINT"T[159]}}[153]LINEONLYTHEUSERMUSTENTER[155].A2000[159]}}[153]FOLLOWEDBYTHECOMMAND";
  14. 14 PRINT"[155]LDA#$12[153].tHE[159]}}[153]HEXOPCODES[152](A912)[153]ARESUPPLIEDBY[159]}}[153]THEMONI";
  15. 15 PRINT"TORAFTERTHE[160]returnKEYIS[159]}}[153]PRESSED.iNTHESECONDLINETHEUSER";
  16. 16 PRINT"[159]}[171]``````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE1[159]}[155]";
  17. 17 PRINT"[210]ETURN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  18. 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 19 GOSUB246
  20. 20 POKE53265,PEEK(53265)AND239:CLR
  21. 21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]DIDN";
  24. 24 PRINT"OTNEEDTOTYPETHE[155]A[153]&ADDRESS.[159]}}[153]tHESIMPLEASSEMBLERRETYPEDTHE";
  25. 25 PRINT"LAST[159]}}[153]ENTEREDLINEANDPROMPTSWITHTHENEXT[159]}}[153]ADDRESS.tOEXITTHE";
  26. 26 PRINT"ASSEMBLER,PRESS[159]}}[153]returnAFTERTHEADDRESSPROMPT.sYNTAX[159]}}[153]ISTHESA";
  27. 27 PRINT"MEASDISASSEMBLEROUTPUT.[159]}}[153]a'[155]:[153]'CANBEUSEDTOTERMINATEALINE";
  28. 28 PRINT".[159]}[171]``````````````````````````````````````[179]}cOMPAREMEMORY";
  29. 29 PRINT"[159]}}}}[152].[155]C10002000C00";
  30. 30 PRINT"0[159]}}}}[153]tHISC";
  31. 31 PRINT"OMPARESMEMORYFROM$1000TO[159]}}[153]$2000TOMEMORYBEGINNINGAT$C00";
  32. 32 PRINT"0.[159]}}[153]cOMPAREWILLPRINTTHELOCATIONOF[159]}}[153]UNEQUALBYTES.";
  33. 33 PRINT"[159]}[171]``````````````````````````````````````[179]}dISASSEMBLER";
  34. 34 PRINT"[159]}}[155](MORE)[159]}[171]```";
  35. 35 PRINT"```````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE2[159]}[155]rETURN";
  36. 36 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  37. 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 38 GOSUB246
  39. 39 POKE53265,PEEK(53265)AND239:CLR
  40. 40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  42. 42 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[152].[155]D2";
  43. 43 PRINT"000[159]}}";
  44. 44 PRINT"}}[153]tHISWILLDISASSEMBLETOTHEENDOF[159]}}[153]MEMORYSTARTINGAT$200";
  45. 45 PRINT"0.tHETHREE[159]}}[153]BYTESFOLLOWINGTHEADDRESSESINTHE[159]}}[153]DISASSEMBLY";
  46. 46 PRINT"MAYBEMODIFIED.[213]SETHE[159][221][221][153][195][210][211][210]KEYSTOMOVETOANDMODIFYTHE[159][221][221][153]";
  47. 47 PRINT"BYTES.hITreturnANDTHEBYTESIN[159]}}[153]MEMORYWILLBECHANGED.xMONW";
  48. 48 PRINT"ILLTHEN[159]}}[153]DISASSEMBLETHATLINEAGAIN.[159]}}";
  49. 49 PRINT"}}[152].[155]D20003000[159]}}";
  50. 50 PRINT"}}[153]tHISDISASSEMBLESFROM$2000TO$3000.[159]";
  51. 51 PRINT"}[171]``````````````````````````````````````[179]}fILLMEMORY[152].[155]F10001100";
  52. 52 PRINT"00[159]}}}}[153]tHISFILLSMEMORY";
  53. 53 PRINT"FROM$1000TO$1100[159]}}[153]WITHZEROS.[159]}[171]``````";
  54. 54 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE3[159]}[155]rETURN=";
  55. 55 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  56. 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 57 GOSUB246
  58. 58 POKE53265,PEEK(53265)AND239:CLR
  59. 59 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  60. 60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  61. 61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}gORU";
  62. 62 PRINT"N[159]}}";
  63. 63 PRINT"}}[152].[155]G[159]}}";
  64. 64 PRINT"}}[153]tHISWILLCAUSETHECOMPUTERTOGOTO[159]}}[153]THEADDRESSI";
  65. 65 PRINT"NTHEPROGRAMCOUNTER[159]}}[153]DISPLAYANDEXECUTECODE.aLLTHEREG-[159]}}[153]IS";
  66. 66 PRINT"TERSWILLBEREPLACEDWITHTHEDIS-[159]}}[153]PLAYEDVALUES.";
  67. 67 PRINT"[159]}}}}[152].[155]G1000";
  68. 68 PRINT"[159]}}}}[153]tHISWILLC";
  69. 69 PRINT"AUSETHECOMPUTERTOGOTO[159]}}[153]ADDRESS$1000ANDBEGINRUNNINGCODE.[159]}[171]";
  70. 70 PRINT"``````````````````````````````````````[179]}hUNTMEMORY[152].[155]HC000D000'";
  71. 71 PRINT"READ[159]}}}}[153]tHISCAUSESTHEMON";
  72. 72 PRINT"ITORTOHUNTMEMORY[159]}}[153]FROM$C000TO$D000FORTHEascii[159]}[171]````````";
  73. 73 PRINT"``````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE4[159]}[155]rETURN=gO";
  74. 74 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  75. 75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  76. 76 GOSUB246
  77. 77 POKE53265,PEEK(53265)AND239:CLR
  78. 78 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  79. 79 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  80. 80 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]STRIN";
  81. 81 PRINT"G'READ'ANDPRINTTHEADDRESS[159]}}[153]WHEREITISFOUND.aMAXIMUMOF";
  82. 82 PRINT"32[159]}}[153]CHARACTERSMAYBEUSED.[159]}}";
  83. 83 PRINT"}}[152].[155]HC000D00020D2FD[159]}}";
  84. 84 PRINT"}}[153]tHISWILLHUNTMEMORYFROM$C000TO[159]}}[153]$D";
  85. 85 PRINT"000FORTHESEQUENCEOFBYTES$20[159]}}[153]$D2$FDANDPRINTANYADDRESSWH";
  86. 86 PRINT"EREIT[159]}}[153]ISFOUND.aMAXIMUMOF32BYTESMAYBE[159]}}[153]USED.hUNTCANBE";
  87. 87 PRINT"STOPPEDWITHTHE[159]}}[153]run/stopKEY.[159]}[171]`````````";
  88. 88 PRINT"`````````````````````````````[179]}iNTERROGATEMEMORY[159]}";
  89. 89 PRINT"}}}[152].[155]IF000";
  90. 90 PRINT"[159]}}}}[155].'F000544F4F20";
  91. 91 PRINT"4D414E59(MORE)[159]}}[155]TOO MANY[146][159]}[171]``````";
  92. 92 PRINT"````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE5[159]}[155]rETURN=";
  93. 93 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  94. 94 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  95. 95 GOSUB246
  96. 96 POKE53265,PEEK(53265)AND239:CLR
  97. 97 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  98. 98 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  99. 99 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[152].'F0";
  100. 100 PRINT"082046494C45D34649(MORE)[159]}}[152] FILES";
  101. 101 PRINT"FI[146][159]}}}}[153]tHISCOMMANDDISPLAYS";
  102. 102 PRINT"HEXANDascii[159]}}[153]UNTILTHEENDOFMEMORY.[159]}}";
  103. 103 PRINT"}}[152].IF000F080[159]}}";
  104. 104 PRINT"}}[153]tHISDISPLAYSHEXANDasciiFROM";
  105. 105 PRINT"$F000[159]}}[153]TO$F080.[159]}[171]``````````````````````";
  106. 106 PRINT"````````````````[179]}lOAD[159]}}";
  107. 107 PRINT"}}[152].[155]L'[FILENAME]'[159]}}";
  108. 108 PRINT"}}[153]tHISWILLLOADAFILEWITHA";
  109. 109 PRINT"USER[159]}}[153]DEFINEDNAMEFROMTHECASSETTEUNIT.[159]}}";
  110. 110 PRINT"}}[152].[155]L'[FILENAME]',08[159]}[171]``````````";
  111. 111 PRINT"````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE6[159]}[155]rETURN=gOo";
  112. 112 PRINT"N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  113. 113 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  114. 114 GOSUB246
  115. 115 POKE53265,PEEK(53265)AND239:CLR
  116. 116 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  117. 117 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  118. 118 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]lOADS";
  119. 119 PRINT"AFILEFROMTHEDISKDRIVE.[159]}}";
  120. 120 PRINT"}}[150]beware!lOADWITHAFILENAMEBREAKS[159]}}[150]THEirqSAVEDBYTHEMONI";
  121. 121 PRINT"TOR.dONOT[159]}}[150]USE[152].[155]G[150]TOTHEPCREGISTERAFTERALOAD[159]}}[150]WITHAFIL";
  122. 122 PRINT"ENAME.[159]}[171]``````````````````````````````````````[179]}";
  123. 123 PRINT"mEMORYDISPLAY[159]}}";
  124. 124 PRINT"}}[152].[155]M00000008[159]}}";
  125. 125 PRINT"}}[152].:00000001A0B34D5CF6E7[159]}}[152].:00082";
  126. 126 PRINT"8498A4B5C7D0E3F[159]}}}}";
  127. 127 PRINT"[153]tHISWILLDISPLAYMEMORYFROM$0000TO[159]}}[153]$0008.tHEBYTESFOLLOWINGTH";
  128. 128 PRINT"EADDRESS[159]}}[153]MAYBEMODIFIEDBYEDITINGANDTHEN[159]}}[153]PRESSINGreturn.";
  129. 129 PRINT"nOTE:[152].[155]M00000000[159]}}[153]WILLALSORETURNTHE1STLINEABOVE.[159]}[171]````";
  130. 130 PRINT"``````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE7[159]}[155]rETURN";
  131. 131 PRINT"=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  132. 132 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  133. 133 GOSUB246
  134. 134 POKE53265,PEEK(53265)AND239:CLR
  135. 135 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  136. 136 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  137. 137 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}nEWl";
  138. 138 PRINT"OCATOR[159]}}";
  139. 139 PRINT"}}[152].[155]N700077FF600004009000[159]}}";
  140. 140 PRINT"}}[152].[155]N700077FF600004009000W[159]}}";
  141. 141 PRINT"}}[153]tHEFIRSTLINEFIXESALLTHREEBYTE[159]}}[153]INS";
  142. 142 PRINT"TRUCTIONSINTHERANGE$7000TO[159]}}[153]$77FFBYADDING$6000OFFSETTO";
  143. 143 PRINT"EVERY[159]}}[153]BYTETHATFOLLOWSA6510OPCODE.iN[159]}}[153]THESHOWNEXAMPLE,N";
  144. 144 PRINT"EWLOCATORWILL[159]}}[153]NOTADJUSTANYINSTRUCTIONSOUTSIDEOF[159]}}[153]THE$0400";
  145. 145 PRINT"$9000RANGE(INTHISEXAMPLE[159]}}[153]basicCALLS,kernalCALLS,OPERATING[159]";
  146. 146 PRINT"}}[153]SYSTEMSTUFF,ETC.).THESECONDLINE[159]}}[153]ADJUSTS[155].WORD[153]VALUESINT";
  147. 147 PRINT"HESAMERANGE[159]}}[153]ASTHEFIRSTLINE.nEWLOCATORSTOPS[159]}}[153]ANDDISASSEMB";
  148. 148 PRINT"LESONANYBADOPCODES.[159]}}[153](eXTRA6510OPCODES=BAD)[159]}[171]``";
  149. 149 PRINT"````````````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE8[159]}[155]rETUR";
  150. 150 PRINT"N=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  151. 151 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  152. 152 GOSUB246
  153. 153 POKE53265,PEEK(53265)AND239:CLR
  154. 154 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  155. 155 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  156. 156 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}rEGIS";
  157. 157 PRINT"TERDISPLAY[159]}}";
  158. 158 PRINT"}}[152].[155]R[159]}}";
  159. 159 PRINT"}}[152]PCIRQSRACXRYRSP[159]}}[152].;0000E62E5";
  160. 160 PRINT"1DE030405[159]}}}}[153]tHIS";
  161. 161 PRINT"COMMANDDISPLAYSTHEREGISTER[159]}}[153]VALUES.tHEVALUESMAYBECHANGED";
  162. 162 PRINT"BY[159]}}[153]EDITINGTHEMANDPRESSINGreturn.[159]}[171]```````````````````````";
  163. 163 PRINT"```````````````[179]}sAVE[159]}}";
  164. 164 PRINT"}}[152].[155]S'[FILENAME],08,0800,0C80[159]}}";
  165. 165 PRINT"}}[153]tHISSAVESTODISKTHECONTENT";
  166. 166 PRINT"SOF[159]}}[153]$0800UPTO(BUTNOTINCLUDING)$0C80.[159]}}[153](USING01SAVESTOCA";
  167. 167 PRINT"SSETTE).[150]rEMEMBER[159]}}[150]FILEACCESSBREAKSTHESAVEDIRQ.[159]}[171]`````````";
  168. 168 PRINT"`````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE9[159]}[155]rETURN=gO";
  169. 169 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  170. 170 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  171. 171 GOSUB246
  172. 172 POKE53265,PEEK(53265)AND239:CLR
  173. 173 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  174. 174 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  175. 175 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}tRANS";
  176. 176 PRINT"FERMEMORY[159]}}";
  177. 177 PRINT"}}[152].[155]T100011005000[159]}}";
  178. 178 PRINT"}}[153]tHISCOMMANDTRANSFERSMEMORYINTHE[159]}}[153]RANGE$1000TO";
  179. 179 PRINT"$1100TOTHESECTIONOF[159]}}[153]MEMORYBEGINNINGAT$5000.[159]}[171]```";
  180. 180 PRINT"```````````````````````````````````[179]}wALKCODE";
  181. 181 PRINT"[159]}}}}[152].[155]W";
  182. 182 PRINT"[159]}}[152].[155]W1000[159]}}";
  183. 183 PRINT"[221][221][153][212]HEFIRSTLINEWOULDBEGINSINGLESTEP[159][221][221][153]";
  184. 184 PRINT"WALKINGSTARTINGATTHEADDRESSINTHE[159]}}[153]PC.tHESECONDLINESTARTSWAL";
  185. 185 PRINT"KINGAT[159]}}[153]$1000.wALKWILLCAUSEASINGLESTEP[159]}}[153]ANDDISASSEMBLETH";
  186. 186 PRINT"ENEXTINSTRUCTION.[159]}}[153]('<'=SINGLESTEP,rvs=SLOW,space=FAST)[159]}[171]```````";
  187. 187 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE10[159]}[155]rETURN=g";
  188. 188 PRINT"O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  189. 189 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  190. 190 GOSUB246
  191. 191 POKE53265,PEEK(53265)AND239:CLR
  192. 192 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  193. 193 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  194. 194 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}eXIT";
  195. 195 PRINT"TObasic[159]}}";
  196. 196 PRINT"}}[152].[155]X[159]}}";
  197. 197 PRINT"}}[153]tHISCOMMANDWILLEXITTObasicREADY[159]}}[153]MODE.uSEsUPE";
  198. 198 PRINT"RaIDESrestoreMKEY[159]}}[153]SEQUENCEANDALLSTACKPROBLEMSWILL[159]}}[153]BE";
  199. 199 PRINT"HANDLEDPROPERLY.oTHERWISExMON[159]}}[153]MAYLEAVETWOBYTESOFGARBAGEO";
  200. 200 PRINT"NTHE[159]}}[153]STACK.tHISISNOTFATALFORALONG[159]}}[153]TIME,BUTITISANNO";
  201. 201 PRINT"YING![159]}[171]``````````````````````````````````````[179]}pRINTEDoU";
  202. 202 PRINT"TPUT[159]}}}}[153]";
  203. 203 PRINT"pRECEEDINGANYxMONCOMMANDWITHAN[159]}}[153]ASTERISK('*')WILLCAUSEOUTP";
  204. 204 PRINT"UTTOBE[159]}}[153]TRANSFEREDTOTHEPRINTERFORTHAT[159]}}[153]COMMANDONLY.nOTE";
  205. 205 PRINT":sUPERaIDESrestore[159]}}[153]pCOMMANDWILLNOTWORKHERE.[159]}[171]```````";
  206. 206 PRINT"```````[178]````````[178]``````````````[179]}[155]x-mONmONITOR[159]}[154]pAGE11[159]}[155]rETURN=g";
  207. 207 PRINT"O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  208. 208 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  209. 209 GOSUB246
  210. 210 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  211. 211 POKE53265,PEEK(53265)AND239
  212. 212 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  213. 213 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  214. 214 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  215. 215 PRINT"}}[153]dOYOUWISHTO:";
  216. 216 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  217. 217 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  218. 218 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  219. 219 PRINT"[173]````````````````````````[189]}}";
  220. 220 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  221. 221 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  222. 222 PRINT"}}}}";
  223. 223 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  224. 224 PRINT"}}}}";
  225. 225 PRINT"}}}[171]``````````````[178]```````";
  226. 226 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][216]-[205]ON  [205]ONITOR[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#7[159][221][173][192][192][192][192][192][192][192][192]";
  227. 227 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  228. 228 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  229. 229 GETW$
  230. 230 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  231. 231 FORX=1066TO1070:POKEX,PO:NEXTX
  232. 232 FORX=1097TO1101:POKEX,PO:NEXTX
  233. 233 IFW$=""THEN229
  234. 234 IFW$=CHR$(13)THENGOTO241
  235. 235 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN237
  236. 236 GOTO229
  237. 237 CO=CO+1:IFCO>2THENCO=1
  238. 238 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  239. 239 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  240. 240 GOTO229
  241. 241 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  242. 242 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  243. 243 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  244. 244 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  245. 245 LOAD"DOC.DRIVER",8
  246. 246 GETW$
  247. 247 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  248. 248 FORX=1066TO1070:POKEX,PO:NEXTX
  249. 249 FORX=1097TO1101:POKEX,PO:NEXTX
  250. 250 IFW$=""THEN246
  251. 251 RETURN
  252.